COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device xgp
C00007 ENDMK
C⊗;
.device xgp
.if XCRIBL THEN START
.page frame 53 high 80 wide;
.FONT 1 "BASL30"; FONT 2 "BASI30"; FONT 3 "BASB30";
.!XGPLFTMAR←216;
.AT "ffi" ⊂ IF THISFONT ≤ 3 THEN "≠"  ELSE "fαfαi" ⊃;
.AT "ffl" ⊂ IF THISFONT ≤ 3 THEN "α∞" ELSE "fαfαl" ⊃;
.AT "ff"  ⊂ IF THISFONT ≤ 3 THEN "≥"  ELSE "fαf" ⊃;
.AT "fi"  ⊂ IF THISFONT ≤ 3 THEN "α≡" ELSE "fαi" ⊃;
.AT "fl"  ⊂ IF THISFONT ≤ 3 THEN "∨"  ELSE "fαl" ⊃;
.END

.MACRO S(NAME) ⊂ SECNAME←NULL
.BEGIN SKIP TO COLUMN 1;
.CENTER; SELECT 3
NAME
.SELECT 1; SKIP; SECNAME←"NAME"
.END  ⊃

.EVERY HEADING({SECNAME},,Page {PAGE!});

.TITLE AREA HEADING LINES 1 TO 3
.IF XCRIBL THEN area text lines 4 to 53 IN 2 COLUMNS 4 APART ELSE
.    area text lines 4 to 53;

.MACRO FAC ⊂FILL ADJUST COMPACT ⊃

.MACRO NEXCOL ⊂ SKIP TO COLUMN (IF XCRIBL ∧ (COLUMN=1) THEN 2 ELSE 1) ⊃

.MACRO CB(TITLE) ⊂ BEGIN BREAK TURN ON "←"; SELECT 3
.IF LINES<5 THEN NEXCOL
←TITLE

.END ⊃

.MACRO BC ⊂ BEGIN PREFACE 0; INDENT 1,4; CRBREAK nojust ⊃

.MACRO BS ⊂ BEGIN PREFACE 0; INDENT 1,4; nojust ⊃

.macro BOLIT ⊂
.TURN ON "%";
.if xcribl then AT """" ⊂ (IF THISFONT=1 THEN "%3" ELSE "%1") ⊃;
.AT "<" ⊂ "%2" ⊃;  AT ">" ⊂ "%1" ⊃;
. ⊃

.MACRO BI ⊂ BEGIN BOLIT; ⊃

.MACRO OI ⊂ ONCE BOLIT; ⊃

.place text
.portion main;
.FAC; TURN ON "{α"
.secname←null;
.NEXT PAGE